library(readr) # lectura de archivos CSV
library(tidyr)
library(readxl) # lectura de archivos XLS
library(dplyr) # transformación de datos
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(DT) # tablas interactivas
library(sf) # manejo de datos vectoriales
## Linking to GEOS 3.9.1, GDAL 3.3.2, PROJ 7.2.1; sf_use_s2() is TRUE
library(leaflet) # mapas interactivos
## Warning: package 'leaflet' was built under R version 4.2.1
library(leaflet.extras)
## Warning: package 'leaflet.extras' was built under R version 4.2.1
library(leafem)
## Warning: package 'leafem' was built under R version 4.2.1
library(spData)
## Warning: package 'spData' was built under R version 4.2.1
## To access larger datasets in this package, install the spDataLarge
## package with: `install.packages('spDataLarge',
## repos='https://nowosad.github.io/drat/', type='source')`
library(ggplot2)
library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
library(RColorBrewer)
cantones <-
  st_read(
    dsn = "C:/Users/Josue Alcazar/Desktop/R Tareas/cantones_simplificados.geojson",
    quiet = TRUE) %>%
  st_transform(4326)

Datos_Policiales <-
  read_xls(path = "C:/Users/Josue Alcazar/Desktop/R Tareas/estadisticaspoliciales2021.xls")
(1.Una tabla DT con las columnas Delito, Fecha, Víctima, Edad, Género, Provincia y Cantón.
- Los encabezados de las columnas en la tabla deben estar correctamente escritos (ej. con tildes), pero no deben alterarse los nombres de las columnas del conjunto de datos. Sugerencia: utilice el argumento colnames de la función DT::datatable().
- Los controles de la tabla deben estar en español.)
Datos_Policiales %>%
  select(Delito, Fecha, Victima, Provincia, Canton, Distrito) %>%
    datatable(
    colnames = c("Delito", "Fecha", "Víctima", "Edad", "Género", "Provincia", "Cantón" ),
    options = list(
    pageLength = 10,
    language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')
  ))
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html
Un gráfico de barras simples, generado con ggplot2 y traducido a plotly con ggplotly(), que muestre la cantidad de delitos por tipo de delito (una barra por tipo de delito: asalto, homicidio, hurto, etc).
-Las barras del gráfico deben estar ordenadas por longitud, de la más larga a la más corta (ya sea de izquierda a derecha o de arriba a abajo).
-El gráfico debe tener título, etiqueta para el eje X y etiqueta para el eje Y.
-Todo el contenido del gráfico debe ser legible.
-Los controles del gráfico deben estar en español.
delitos_x_tipodelito <-
  Datos_Policiales %>%
  count(Delito, name = "Cantidad de delitos")# con esto cuento la cantidad de delitos por tipo de delito y agrego la columna para el grafico 
Grafico_barras_delixprov <-
 delitos_x_tipodelito %>%
  ggplot(aes(x = reorder(Delito, `Cantidad de delitos`), y = `Cantidad de delitos`)) +
  geom_bar(stat = "identity") +
  ggtitle("Cantidad de delitos por tipo de delito") +
  xlab("Tipo de delito") +
  ylab("Cantidad de delitos") +
  coord_flip() +
  theme_minimal()


ggplotly(Grafico_barras_delixprov) %>% config(locale = 'es')
Un gráfico de barras simples, generado con ggplot2 y traducido a plotly con ggplotly(), que muestre la cantidad de delitos por víctima (una barra por víctima: edificación, persona, vivienda, etc.).
- Las barras del gráfico deben estar ordenadas por longitud, de la más larga a la más corta (ya sea de izquierda a derecha o de arriba a abajo).
- El gráfico debe tener título, etiqueta para el eje X y etiqueta para el eje Y.
- Todo el contenido del gráfico debe ser legible.
- Los controles del gráfico deben estar en español.